home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / sieve.fs < prev    next >
Encoding:
Text File  |  1994-10-04  |  452 b   |  18 lines
  1. DECIMAL
  2. : SECS TIME&DATE  DROP DROP DROP  60 * + 60 * + ;
  3. CREATE FLAGS 8190 ALLOT
  4. FLAGS 8190 + CONSTANT EFLAG
  5.  
  6. : PRIMES  ( -- n )  FLAGS 8190 1 FILL  0 3  EFLAG FLAGS
  7.   DO   I C@
  8.        IF  DUP I + DUP EFLAG <
  9.            IF    EFLAG SWAP
  10.                  DO  0 I C! DUP  +LOOP
  11.            ELSE  DROP  THEN  SWAP 1+ SWAP
  12.            THEN  2 +
  13.        LOOP  DROP ;
  14.  
  15. : BENCHMARK  0 100 0 DO  PRIMES NIP  LOOP ;
  16. SECS BENCHMARK . SECS SWAP - CR . .( secs)
  17. BYE
  18.